* src/print.c (PRINT_CIRCLE_CANDIDATE_P): Fix a thinko. (Bug#36566)

diff --git a/src/print.c b/src/print.c
index c870aa5a08867c94214eac82953fbefd247f4611..7e5aed828772a6c6479122ac9e4ece75c673ff9d 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1151,8 +1151,8 @@ print (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag)
 #define PRINT_CIRCLE_CANDIDATE_P(obj)                     \
   ((STRINGP (obj)                                          \
        && (string_intervals (obj)                          \
-         || print_depth > 1                               \
-         || Vprint_continuous_numbering))                 \
+          || print_depth > 1                              \
+          || !NILP (Vprint_continuous_numbering)))        \
    || CONSP (obj)                                         \
    || (VECTORLIKEP (obj)                                  \
        && (VECTORP (obj) || COMPILEDP (obj)               \